home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / webster < prev    next >
Text File  |  2002-09-18  |  2KB  |  98 lines
  1. /*
  2.  * A webster client for ircII
  3.  * Written by Jeremy Nelson (C) 1994 - This is Freeware
  4.  *
  5.  * This script requires ircII-EPIC to run.
  6.  * Since there is no more webster server, this script stands
  7.  * as an intellectual exercise.
  8.  */
  9. echo *** The webster server at webster.cs.indiana.edu 
  10. echo *** is no longer operational.  The webster script
  11. echo *** is obsolete.
  12.  
  13. alias define {
  14.     webster.connect
  15.     webster.out DEFINE $0
  16. }
  17. alias complete {
  18.     webster.connect
  19.     webster.out COMPLETE $0
  20. }
  21. alias endings {
  22.     webster.connect
  23.     webster.out ENDINGS $0
  24. }
  25. alias spell {
  26.     webster.connect
  27.     webster.out SPELL $0
  28. }
  29. alias webster.out {
  30.     dcc raw $webster.fd $webster.host $*$chr(13)$chr(10)
  31. }
  32. alias webster.connect {
  33.     ^set display off
  34.         echo *** Webster: Hang on.....
  35.     @ webster.host = [webster.cs.indiana.edu]
  36.     @ webster.port = 2627
  37.     @ webster.fd = connect($webster.host $webster.port)
  38.     if (webster.fd)
  39.     {
  40.         eval ^on ^dcc_raw "$webster.fd $webster.host D *" {
  41.             hook WEBSTER $strip($chr(13) $3-)
  42.         }
  43.     }
  44.     {
  45.         echo *** Webster: connection failed
  46.     }
  47.     ^set display on
  48. }
  49.  
  50. # The DEFINE command replies
  51. on hook "WEBSTER DEFINITION 0" {
  52.     echo *** Webster: Definition Found.
  53. }
  54. on hook "WEBSTER DEFINITION %" {
  55.     echo *** Webster: There are $2 cross references for this word
  56. }
  57. on hook "WEBSTER WILD" {
  58.     echo *** Webster: These words match the pattern.
  59. }
  60. on hook "WEBSTER WILD 0" {
  61.     echo *** Webster: No words match this pattern.
  62. }
  63. on hook "WEBSTER ERROR*" {
  64.     echo *** Webster: Error: unknown command. Ack!
  65. }
  66.  
  67. # The COMPLETE command replies
  68. on hook "WEBSTER AMBIGUOUS %" {
  69.     echo *** Webster: There are $2 possible completions to the word.
  70. }
  71. on hook "WEBSTER COMPLETION %" {
  72.     echo *** Webster: Try completing the word as $2.
  73. }
  74.  
  75. # The ENDINGS command replies
  76. on hook "WEBSTER MATCHS 0" {
  77.     echo *** Webster: No words begin with that prefix
  78. }
  79. on hook "WEBSTER MATCHS" {
  80.     echo *** Webster: These words complete that suffix
  81. }
  82.  
  83. # The SPELL command replies
  84. on hook "WEBSTER SPELLING 0" {
  85.     echo *** Webster: I have NO idea how to spell that word
  86. }
  87. on hook "WEBSTER SPELLING 1" {
  88.     echo *** Webster: That word is spelled correctly
  89. }
  90. on hook "WEBSTER SPELLING" {
  91.     echo *** Webster: Try using one of these words instead
  92. }
  93.  
  94. # Everything else gets echoed
  95. on hook "WEBSTER *" {
  96.     echo $1-
  97. }
  98.